home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00220.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.0 KB  |  39 lines
  1. on exitFrame
  2.   global ppl, mnv, objc, foes, pwr, advance, psyprop, soundspath, cheese, heart
  3.   psyprop = 0
  4.   advance = 9
  5.   puppetSprite(1, 1)
  6.   ppl = [10, 11, 12, 13]
  7.   mnv = [0, 0, 0, 0, 0, 0]
  8.   ccc = getAt(pwr, 1)
  9.   pwr = [ccc, 75, 75, 75]
  10.   objc = ["jmppno", EMPTY, EMPTY]
  11.   set the keyUpScript to "psyreg"
  12.   set the keyDownScript to "psyregb"
  13.   repeat with i = 10 to 13
  14.     sprite(i).visible = 1
  15.     set the constraint of sprite i to 39
  16.     puppetSprite(i, 1)
  17.   end repeat
  18.   sound playFile 1, soundspath & "282"
  19.   cheese = "0,0,0,0"
  20.   puppetSprite(15, 1)
  21.   puppetSprite(16, 1)
  22.   puppetSprite(17, 1)
  23.   puppetSprite(18, 1)
  24.   sprite(16).flipH = 1
  25.   set the locH of sprite 10 to 20
  26.   set the locV of sprite 10 to 400
  27.   sprite(41).visible = 0
  28.   foes = [43, 162, 162]
  29.   set the locH of sprite 11 to 580
  30.   set the locV of sprite 11 to 370
  31.   set the locH of sprite 12 to -1000
  32.   set the locV of sprite 12 to 400
  33.   set the locH of sprite 13 to -1200
  34.   set the locV of sprite 13 to 400
  35.   puppetSprite(31, 0)
  36.   heart = 9
  37.   set the locH of sprite 5 to 10 + random(620)
  38. end
  39.